Unit
LMDFileGrep

Declaration

TLMDFoundEvent = procedure (Sender : TObject; found : String) of object;